home *** CD-ROM | disk | FTP | other *** search
/ Complete Internet Archive / Complete Internet Archive.iso / Web Boards / WebForum_tar(2).Z / WebForum_tar(2) / WebForum / src / interfacecom.pl < prev    next >
Encoding:
Text File  |  1995-01-19  |  509 b   |  27 lines
  1. # test a command
  2. # input is arg=value pairs, 1 per line
  3. # calls wfcommand.pl having set CONTENT_LENGTH, etc
  4. # argument is user id
  5.  
  6. require "ABSWFBIN/LIBWEBFORUM.PL";
  7.  
  8. if ($#ARGV > -1) {
  9.  $ENV{"REMOTE_USER"}=$ARGV[0];
  10. } else {
  11.  $ENV{"REMOTE_USER"}='wfroot';
  12. }
  13.  
  14. $ip="";
  15. while (<>) {
  16.  chop;
  17.  /([^=]*)=(.*$)/;
  18.  $arg=&WFEncodeDatum($1);
  19.  $val=&WFEncodeDatum($2);
  20.  $ip = $ip . "$arg=$val&";
  21. }
  22.  
  23. $ENV{"REQUEST_METHOD"}="POST";
  24. $ENV{"CONTENT_LENGTH"}=length($ip);
  25. exec("echo \"$ip\" |ABSWFCTRLBIN/STD_WFCOMMAND.PL");
  26.  
  27.